home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.5 Complementary Applications 2004 February / SGI IRIX 6.5 Complementary Applications 2004 February.iso / dist / cde.idb / usr / dt / share / examples / dtksh / ListPosSel1.z / ListPosSel1
Encoding:
Text File  |  2003-11-18  |  2.8 KB  |  89 lines
  1. #! /usr/dt/bin/dtksh
  2. #
  3. # ListPosSel1
  4. #
  5. # Copyright 2000, Silicon Graphics, Inc.
  6. # ALL RIGHTS RESERVED
  7. # 
  8. # UNPUBLISHED -- Rights reserved under the copyright laws of the United
  9. # States.   Use of a copyright notice is precautionary only and does not
  10. # imply publication or disclosure.
  11. #
  12. # U.S. GOVERNMENT RESTRICTED RIGHTS LEGEND:
  13. # Use, duplication or disclosure by the Government is subject to restrictions
  14. # as set forth in FAR 52.227.19(c)(2) or subparagraph (c)(1)(ii) of the Rights
  15. # in Technical Data and Computer Software clause at DFARS 252.227-7013 and/or
  16. # in similar or successor clauses in the FAR, or the DOD or NASA FAR
  17. # Supplement.  Contractor/manufacturer is Silicon Graphics, Inc.,
  18. # 2011 N. Shoreline Blvd. Mountain View, CA 94039-7311.
  19. #
  20. # THE CONTENT OF THIS WORK CONTAINS CONFIDENTIAL AND PROPRIETARY
  21. # INFORMATION OF SILICON GRAPHICS, INC. ANY DUPLICATION, MODIFICATION,
  22. # DISTRIBUTION, OR DISCLOSURE IN ANY FORM, IN WHOLE, OR IN PART, IS STRICTLY
  23. # PROHIBITED WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SILICON
  24. # GRAPHICS, INC.
  25. #
  26. ##########################################################################
  27. #  (c) Copyright 1993, 1994 Hewlett-Packard Company    
  28. #  (c) Copyright 1993, 1994 International Business Machines Corp.
  29. #  (c) Copyright 1993, 1994 Sun Microsystems, Inc.
  30. #  (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
  31. #      Novell, Inc.
  32. ##########################################################################
  33.  
  34.  
  35. #
  36. # This sample shell script demonstrates how to create a list widget, and
  37. # also verifies that the XmListPosSelected command works; this command
  38. # returns information about whether an indicated list item is selected.
  39. #
  40.  
  41. integer i
  42.  
  43. # Pushbutton Callback: print the selection state of each list item.
  44. GetSelectionStatus()
  45. {
  46.    i=1
  47.    echo
  48.    while (($i <= 11 )); do
  49.       if XmListPosSelected $LIST $i; then
  50.          echo "Item "$i" is selected"
  51.       else
  52.          echo "Item "$i" is not selected"
  53.       fi
  54.       i=i+1
  55.    done
  56. }
  57.  
  58. ######################### Create the Main UI #################################
  59.  
  60. XtInitialize TOPLEVEL listPosSel1 ListPosSel1 "$0" "$@"
  61. XtSetValues $TOPLEVEL allowShellResize:True
  62.  
  63. XmCreateScrolledList LIST $TOPLEVEL list \
  64.     itemCount:11 \
  65.     items:"item1,item2,item3,item4,item5,item6,item7,item8,item9,item10,item11" \
  66.     visibleItemCount:15 \
  67.     listSizePolicy:VARIABLE
  68. XtSetValues $LIST \
  69.     selectedItemCount:3 \
  70.     selectedItems:"item2,item4,item6"
  71. XtManageChild $LIST
  72.  
  73. XtRealizeWidget $TOPLEVEL
  74.  
  75. XtCreateApplicationShell TOPLEVEL2 ListPosSel1a TopLevelShell
  76.  
  77. XtCreateManagedWidget RC rc XmRowColumn $TOPLEVEL2 \
  78.          orientation:HORIZONTAL \
  79.          numColumns:2 \
  80.          packing:PACK_COLUMN 
  81.  
  82. XtCreateManagedWidget PB1 pb1 XmPushButton $RC \
  83.     labelString:"Get Item Selection Status"
  84. XtAddCallback $PB1 activateCallback "GetSelectionStatus"
  85.  
  86. XtRealizeWidget $TOPLEVEL2
  87.  
  88. XtMainLoop
  89.